(mail): If homedir is nonexistent, don't use as default.

diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 473504e2e3b0edf526c0529b1f01e0bbd494713a..d613a7588b8cb8c19f53badbc955cb37298e7e5b 100644 (file)
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -825,7 +825,8 @@ The seventh argument ACTIONS is a list of actions to take
 ;;;          (message "Auto save file for draft message exists; consider M-x mail-recover"))
 ;;;          t))
   (switch-to-buffer "*mail*")
-  (setq default-directory (expand-file-name "~/"))
+  (if (file-exists-p (expand-file-name "~/"))
+      (setq default-directory (expand-file-name "~/")))
   (auto-save-mode auto-save-default)
   (mail-mode)
   (let (initialized)